home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 October / Ahoy_Magazine_87-10_1987_Double_L_Side_A.d64 / EPROM Tester (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  694b  |  19 lines
  1. 10 rem eprom tester
  2. 20 rem by david s. krause
  3. 30 forx=3400to3450:ready:pokex,y:next:print"[147]"
  4. 40 print"(load eprom at or above 3500 decimal)"
  5. 50 input"eprom start address";s$
  6. 60 input"eprom ending address";e$
  7. 70 s=val(s$):e=val(e$):a=int(s/256):b=(s/256-a)*256
  8. 80 c=int(e/256):d=(e/256-c)*256
  9. 90 ifs>ethenprint"(error-start cannot be greater than end address)":goto50
  10. 100 poke251,b:poke252,a:poke253,d:poke254,c
  11. 110 sys3400
  12. 120 ifpeek(2)=7thenprint"[147]specified addresses are fully erased"
  13. 130 ifpeek(2)=33thenprint"[147]error in address";:printpeek(251)+256*peek(252)
  14. 140 end
  15. 150 data120,160,0,177,251,201,255,208,26
  16. 160 data165,252,197,254,208,12,165,251,197,253,208,6,169,7,133,2,88,96
  17. 170 data160,0,177,251,201,255,240,6,169,33,133,2,88,96,230,251,208,208,230
  18. 180 data252,208,204,88,96
  19.